Hyper Stacks 1994 May/Hyper Stacks (Pacific HiTech)(1994)[Mac].iso/Organization/E-Mail Address/background_2810.txt

Text File | 1988-02-19 | 9.5 KB | 425 lines

-- background: 2810 from stack: in
-- bmap block id: 3206
-- flags: 4000
-- background id: 0
-- name: Main Background
----- HyperTalk script -----
on openBackground
  show message box
end openBackground



-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=243 right=288 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button will sort the cards in the stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  answer "Sort all cards of this stack according to:" with "Last Name" or "First Name" or "Cancel"
  if it is "First Name" then
    set the lockScreen to true
    sort by field "First"
    go to first card of bkgnd "Main Background"
  else if it is "Last Name" then
    set the lockScreen to true
    sort by field "Last"
    go to first card of bkgnd "Main Background"
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=16 top=117 right=156 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 17481 / 17481
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the Address stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  get the selection
  visual effect iris open
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=17 top=28 right=66 bottom=61
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the Home stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  visual effect iris open
  go home
end mouseUp




-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=162 right=197 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To Do
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the To Do stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  visual effect iris open
  go to card "First Do" of "Datebook"
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=19 top=75 right=110 bottom=58
-- title width / last selected line: 0
-- icon id / first selected line: 21209 / 21209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the Daily stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  set lockScreen to true
  go stack "DateBook"
  goWeekly the seconds
  set lockScreen to false
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=435 top=46 right=71 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 19678 / 19678
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tell Me About...
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the About card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  hide message box
  visual effect scroll right
  push card
  go to card "Info"
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=115 top=44 right=73 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the Help card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  hide message box
  visual effect scroll right
  push card
  go to card "Help"
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=84 top=241 right=269 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the first card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  go to first card in this background
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=307 top=241 right=269 bottom=343
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the next card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  go to next card in this background
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=227 top=242 right=268 bottom=260
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the previous card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  go to previous card in this background
end mouseUp


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=449 top=241 right=269 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 26865 / 26865
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button takes you to the last card." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  go to last card in this background
end mouseUp



-- part 17 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=163 top=90 right=108 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last


-- part 18 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=163 top=121 right=139 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: First


-- part 19 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=178 top=153 right=171 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address


-- part 20 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=390 top=153 right=171 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Network


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=138 top=184 right=234 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other


-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=18 top=204 right=239 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Terminal
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button can take you to a terminal stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  --*******************************************************************
  --If you are so inclined, delete the stuff between the stars
  --and enter your own "go" or "open" command or whatever you see fit
  --so that you can go to the terminal stack/program of your choice.
  --If this confuses you, you shouldn't be here. Please press the
  --"Cancel" button below.
  answer "Edit this script to link to terminal program." with "Script" or "Cancel"
  if it is "Script" then
    edit script of background button "Terminal"
    exit mouseUp
  end if
  --*******************************************************************
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=266 top=242 right=268 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  if the optionKey is down then
    answer "This button adds a new card to the stack." with "OK"
    pass mouseUp
    exit mouseUp
  end if
  doMenu New Card
  tabKey
end mouseUp